unit uFrmCadBancos;

interface

uses
  Graphics, Forms, uFrmModeloCadastros,
  DB, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids,
  DBGrids, Controls, Classes;

type
  TFrmCadBancos = class(TFrmModeloCadastros)
    procedure FormCreate(Sender: TObject);
  end;

var
  FrmCadBancos: TFrmCadBancos;

implementation

{$R *.dfm}

uses
  uDmCliente;

procedure TFrmCadBancos.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet := DmCliente.cdsTeste;
  inherited;
end;

initialization
  TFabrica.RegisterForm('FrmCadBancos', TFrmCadBancos);

end.
